PC World Interactive 4/PC World Interactive 4.iso/online/tlaunch.exe/0/RCDATA/TFRM_ICON/TFRM_ICON.txt

Text File | 1997-06-09 | 5.6 KB | 274 lines

object frm_Icon: Tfrm_Icon
  Left = 320
  Top = 192
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Button Icon'
  ClientHeight = 133
  ClientWidth = 321
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lab_IcoFile: TLabel
    Left = 8
    Top = 18
    Width = 49
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Icon File:'
  end
  object lab_IcoNum: TLabel
    Left = 8
    Top = 50
    Width = 49
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Index:'
    FocusControl = txt_IcoNum
  end
  object lab_IconNums: TLabel
    Left = 128
    Top = 51
    Width = 67
    Height = 13
    Caption = '(0 icons in file)'
  end
  object Image1: TImage
    Left = 24
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
    Visible = False
  end
  object Image2: TImage
    Left = 40
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.ico>}
    Visible = False
  end
  object Image3: TImage
    Left = 56
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image002.ico>}
    Visible = False
  end
  object Image4: TImage
    Left = 72
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image003.ico>}
    Visible = False
  end
  object Image5: TImage
    Left = 88
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image004.ico>}
    Visible = False
  end
  object Image6: TImage
    Left = 104
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image005.ico>}
    Visible = False
  end
  object Image7: TImage
    Left = 120
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image006.ico>}
    Visible = False
  end
  object Image8: TImage
    Left = 136
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image007.ico>}
    Visible = False
  end
  object Image9: TImage
    Left = 152
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image008.ico>}
    Visible = False
  end
  object Image10: TImage
    Left = 168
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image009.ico>}
    Visible = False
  end
  object Image11: TImage
    Left = 184
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image010.ico>}
    Visible = False
  end
  object Image12: TImage
    Left = 200
    Top = 80
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image011.ico>}
    Visible = False
  end
  object cmd_OK: TBitBtn
    Left = 240
    Top = 96
    Width = 74
    Height = 29
    Enabled = False
    TabOrder = 6
    OnClick = cmd_OKClick
    Kind = bkOK
  end
  object cmd_Cancel: TBitBtn
    Left = 160
    Top = 96
    Width = 74
    Height = 29
    TabOrder = 5
    Kind = bkCancel
  end
  object cmd_Help: TBitBtn
    Left = 8
    Top = 96
    Width = 74
    Height = 29
    Caption = 'Help'
    TabOrder = 4
    Kind = bkHelp
  end
  object pan_Icon: TPanel
    Left = 278
    Top = 49
    Width = 32
    Height = 32
    BevelOuter = bvNone
    TabOrder = 7
    object img_Icon: TImage
      Left = 0
      Top = 0
      Width = 32
      Height = 32
      Align = alClient
    end
  end
  object spin_IcoNum: TUpDown
    Left = 105
    Top = 45
    Width = 15
    Height = 24
    Associate = txt_IcoNum
    Min = 0
    Max = 0
    Position = 0
    TabOrder = 3
    Wrap = True
  end
  object txt_IcoNum: TEdit
    Left = 64
    Top = 45
    Width = 41
    Height = 24
    Color = clBtnFace
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    MaxLength = 4
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    Text = '0'
    OnChange = txt_IcoNumChange
    OnExit = txt_IcoNumExit
    OnKeyPress = txt_IcoNumKeyPress
  end
  object cmd_Browse: TBitBtn
    Left = 288
    Top = 12
    Width = 25
    Height = 25
    TabOrder = 2
    OnClick = cmd_BrowseClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      555555555555555555555555555555555555555FFFFFFFFFF555550000000000
      55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
      B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
      000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
      555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
      55555575FFF75555555555700007555555555557777555555555555555555555
      55555555555555555555555555555555555555555555555555550000}
    NumGlyphs = 2
  end
  object txt_IcoFile: TDropEdit
    Left = 64
    Top = 12
    Width = 217
    Height = 24
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnChange = txt_IcoFileChange
    AcceptFiles = True
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Options = [ofHideReadOnly, ofFileMustExist, ofNoDereferenceLinks]
    Left = 88
    Top = 96
  end
  object img_List: TImageList
    Height = 32
    Width = 32
    Left = 120
    Top = 96
  end
end